home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / biz / misc / BlitzBank229.lha / blitzbank / InstallEnglish < prev    next >
Text File  |  1996-07-04  |  4KB  |  132 lines
  1.  
  2. (welcome)
  3.  
  4. (set PROGNAME "BlitzBank")
  5.  
  6. (working "Searching for version of BlitzBank...")
  7. (set version (getversion "blitzbank"))
  8. (set vers (/ version 65536))
  9. (set revis (- version (* vers 65536) ) )
  10.  
  11. (if (<> (getassign "blitzbank") "")
  12. (if (exists "blitzbank:blitzbank")
  13. ( (working "Searching for version of BlitzBank\n already installed...")
  14.        (set vernum (getversion "blitzbank:blitzbank"))
  15.        (if (= vernum 0)
  16.          (
  17.            (set reponse (askbool
  18.             (prompt "An inferior version of Blitzbank\n is already installed.\n"
  19.              ("Do you want to install this version %ld.%ld\n at its place ?" vers revis))
  20.             (choices "Yes" "No")
  21.             (help "If you choose YES, you will be ask for a directory."))
  22.            )
  23.          )
  24.          ( (set ver (/ vernum 65536))
  25.            (set rev (- vernum (* ver 65536) ) )
  26.            (if (> version vernum)
  27.              ( (set reponse (askbool
  28.                 (prompt ("Blitzbank V%ld.%ld is already installed.\n" ver rev)
  29.                  ("Do you want to install this version %ld.%ld\n at its place ?" vers revis))
  30.                 (choices "Yes" "No")
  31.                 (help "If you choose YES, you will be ask for a directory."))
  32.                )
  33.              )
  34.            )
  35.            (if (< version vernum)
  36.              ((set reponse (askbool
  37.                (prompt ("Blitzbank V%ld.%ld is already installed.\n" ver rev)
  38.                 ("Are you sure you want to install \nthis old version %ld.%ld at its place ?" vers revis))
  39.                (choices "Yes" "No")
  40.                (help "If you choose YES, you will be ask for a directory."))
  41.               )
  42.              )
  43.            )
  44.            (if (= version vernum)
  45.              ((set reponse (askbool
  46.                (prompt ("The same version of Blitzbank (V%ld.%ld)\n is already installed.\n" ver rev)
  47.                 "Do you want to reinstall it\n in the same directory ?")
  48.                (choices "Yes" "No")
  49.                (help "If you choose YES, you will be ask for a directory."))
  50.               )
  51.              )
  52.            )
  53.          )
  54.        )
  55.      )
  56. )
  57. )
  58.  
  59. (if (not reponse) (set destination
  60.        (askdir
  61.          (prompt ("In which Directory Would you like\n to install %s %ld.%ld ?" PROGNAME vers revis) )
  62.          (help
  63.            "all files will be copied directly to this directory."
  64.          )
  65.          (default "dh0:")
  66.        )
  67.      )
  68.      ( set destination "BlitzBank:" )
  69. )
  70.  
  71. (if (= (getassign (substr destination 0 (- (strlen destination) 1))) "")
  72.   (set @default-dest destination)
  73.   (set @default-dest (getassign (substr destination 0 (- (strlen destination) 1))))
  74. )
  75.  
  76. ; Install main program files
  77.  
  78. (set path.source (pathonly @icon) )
  79.  
  80. (copyfiles
  81.    (prompt ("Copying Files To %s" @default-dest))
  82.    (help   "")
  83.    (choices
  84.    "datas"
  85.    "Doc"
  86.    "Doc.info"
  87.    "BlitzBank"
  88.    "BlitzBank.im"
  89.    "BlitzBank.info"
  90.    "Exemple.cpt"
  91.    "Exemple.cpt.info" (if (<> destination "BlitzBank:") "BlitzBank.prefs" "Exemple.cpt"))
  92.    (source path.source)
  93.    (dest @default-dest)
  94. )
  95.  
  96. (complete 80)
  97.  
  98. (copyfiles
  99.    (prompt "Copying Fonts")
  100.    (help ""
  101.    )
  102.    (choices "BlitzBank" "BlitzBank.font" )
  103.    (source "fonts/")
  104.    (dest "FONTS:")
  105.    (infos)
  106.    (optional nofail)
  107. )
  108.  
  109. (complete 90)
  110.  
  111. (if (<> destination "BlitzBank:")
  112.  (startup
  113.    PROGNAME
  114.    (prompt "I am going to update your User-Startup..."
  115.  
  116.    )
  117.    (help
  118.       "Select PROCEED to have the Assign command in your User-Startup."
  119.    )
  120.    (command ("assign blitzbank: \"%s\"" @default-dest))
  121.  )
  122. )
  123.  
  124. (makeassign "BlitzBank" @default-dest)
  125.  
  126. (complete 100)
  127.  
  128. (exit
  129.    "Now, double click on BlitzBank... "
  130.    ("in the directory %s" @default-dest)
  131. )
  132.